﻿Imports System.Data.SqlClient

Public Class Form1
    Private Sub Form1_Load(
          ByVal sender As Object,
          ByVal e As System.EventArgs) _
          Handles Me.Load
        Me.SqlConnection1.ConnectionString =
          "Integrated Security=SSPI;" &
          "Persist Security Info=False;" &
          "User ID='';" &
          "Initial Catalog=NorthWind;" &
          "Data Source=HP;" &
          "Initial File Name=''"
    End Sub

    Private Sub btnLeggiDato_Click(
          ByVal sender As System.Object,
          ByVal e As System.EventArgs) _
          Handles btnLeggiDato.Click
        Dim SQL As String =
          "SELECT COUNT(*) AS Numero FROM Clienti"
        Me.SqlConnection1.Open()
        Dim Comando As New SqlCommand(
          SQL, Me.SqlConnection1)
        Dim Numero As Integer =
          Convert.ToInt32(Comando.ExecuteScalar)
        Me.SqlConnection1.Close()
        Me.Label1.Text =
          "Numero record 'Clienti': " & Numero
    End Sub
End Class

